Public Class CFirm
    Dim _intFirmID As Integer
    Dim _strFirmName As String
    Dim _strShortName As String
    Dim _person As New CPerson
    Dim _strLSTNUM As String
    Dim _strCSTNUM As String
    Dim _strFDA As String
    '@ on 20071121:Added for Insertion Into tfinyear 
    Dim _dateFystart As Date
    Dim _datefyend As Date
    Dim _dateFStart As Date

    Public Property FirmID() As Integer
        Get
            Return _intFirmID
        End Get
        Set(ByVal value As Integer)
            _intFirmID = value
        End Set
    End Property
    Public Property FirmName() As String
        Get
            Return _strFirmName
        End Get
        Set(ByVal value As String)
            _strFirmName = value
        End Set
    End Property
    Public Property ShortName() As String
        Get
            Return _strShortName
        End Get
        Set(ByVal value As String)
            _strShortName = value
        End Set
    End Property
    Public Property person() As CPerson
        Get
            Return _person
        End Get
        Set(ByVal value As CPerson)
            _person = value
        End Set
    End Property
    Public Property LSTNUM() As String
        Get
            Return _strLSTNUM
        End Get
        Set(ByVal value As String)
            _strLSTNUM = value
        End Set
    End Property

    Public Property CSTNUM() As String
        Get
            Return _strCSTNUM
        End Get
        Set(ByVal value As String)
            _strCSTNUM = value
        End Set
    End Property
    Public Property FDA() As String
        Get
            Return _strFDA
        End Get
        Set(ByVal value As String)
            _strFDA = value
        End Set
    End Property
    '@ on 20071121:Added for Insertion Into tfinyear 
    Public Property FinYStart() As Date
        Get
            Return _dateFystart
        End Get
        Set(ByVal value As Date)
            _dateFystart = value
        End Set
    End Property
    '@ on 20071121:Added for Insertion Into tfinyear 
    Public Property FinYEnd() As Date
        Get
            Return _datefyend
        End Get
        Set(ByVal value As Date)
            _datefyend = value
        End Set
    End Property
    '@ on 20071121:Added for Insertion Into tfinyear 
    Public Property FirmSDt() As Date
        Get
            Return _dateFStart
        End Get
        Set(ByVal value As Date)
            _dateFStart = value
        End Set
    End Property
End Class